#!/usr/bin/perl

unless (open(FILE, "/proc/stat")) { die ("can't open /proc/stat"); }

while ($line = <FILE>) {
    if ($line =~ /btime\s+(\d+)/) {
        @date = localtime($1);
        $date[5] += 1900;
        $date[4] += 1;
        printf("%d-%d-%d %d:%d:%d\n",
               $date[5], $date[4], $date[3],
               $date[2], $date[1], $date[0]);
        exit(0);
    }
}

